home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
game
/
map_quiz
/
a_africa.bas
next >
Wrap
BASIC Source File
|
1993-11-30
|
17KB
|
394 lines
1000 ' ******************************************************************
1010 ' * *
1020 ' * :::::::::::: A_AFURICA.BAS :::::::::::::: *
1030 ' * Programmed By T.K.Mosaku *
1040 ' * ~~~~~~~~~~~~~~~~~~~~~~~~ *
1050 ' ******************************************************************
1060 '
1070 '** 画面表示 **
1080 MENU=1
1090 LOAD@"D_AFMAP.TIF",(1,1)
1100 LOAD@"F_SWICH2.TIF",(19,393)
1110 LOAD@"F_SWICH3.TIF",(98,393)
1120 '
1130 '** MENU 画面 **
1140 *MENU_GAMEN
1150 CLS 4:SIR=0
1160 LOCATE 61,2 :COLOR 2:PRINT"国名クイズ"
1170 LOCATE 55,4 :COLOR 3:PRINT" メニュ- "
1180 LOCATE 55,6 :COLOR 2:PRINT"何問に挑戦しますか。"
1190 LOCATE 57,8 :COLOR 1:PRINT"左クリックして"
1200 LOCATE 57,9 :COLOR 1:PRINT"下から選んで下さい。"
1210 LOCATE 55,11:COLOR 3:PRINT"君は?"
1220 LOCATE 57,13:COLOR 2:PRINT"どの位答えられるか。"
1230 LOCATE 55,16:COLOR 3:PRINT" 問題の数 "
1240 LOCATE 58,18:COLOR 2:PRINT" 5問 10問 20問"
1250 LOCATE 58,19:COLOR 2:PRINT" 30問 40問 45問"
1260 '
1270 MOUSE 0
1280 MOUSE 1,596,353,1
1290 '
1300 '** MENU 選択 **
1310 X=MOUSE(4,0):Y=MOUSE(5,0)
1320 IF X>103 AND X<128 AND Y>415 AND Y<424 THEN SIR=1 :GOTO *SIRABERU
1330 IF X>29 AND X<52 AND Y>38 AND Y<59 THEN GOTO *MENU_1
1340 IF X>63 AND X<81 AND Y>38 AND Y<59 THEN GOTO *OWARI_E
1350 IF X>475 AND X<501 AND Y>344 AND Y<355 THEN PNO= 5:GOTO *MOZI
1360 IF X>523 AND X<550 AND Y>344 AND Y<355 THEN PNO=10:GOTO *MOZI
1370 IF X>560 AND X<600 AND Y>344 AND Y<355 THEN PNO=20:GOTO *MOZI
1380 IF X>475 AND X<501 AND Y>363 AND Y<375 THEN PNO=30:GOTO *MOZI
1390 IF X>523 AND X<550 AND Y>363 AND Y<375 THEN PNO=40:GOTO *MOZI
1400 IF X>560 AND X<600 AND Y>363 AND Y<375 THEN PNO=45:GOTO *MOZI
1410 GOTO 1310
1420 '
1430 '** 画面設定 **
1440 *MOZI
1450 QQN=0
1460 IF QQN=2 THEN GOTO 1720
1470 CLS 4
1480 LOCATE 61,2 :COLOR 2:PRINT"国名クイズ"
1490 LOCATE 55,4 :COLOR 3:PRINT"問 題"
1500 LOCATE 61,8 :COLOR 3:PRINT"左クリックして"
1510 LOCATE 61,9 :COLOR 3:PRINT"下さい。"
1520 LOCATE 55,11:COLOR 3:PRINT"答 え"
1530 LOCATE 55,16:COLOR 1:PRINT"今までの成績"
1540 LOCATE 57,18:COLOR 1:PRINT"解答数"
1550 LOCATE 57,19:COLOR 1:PRINT"正答率 %"
1560 IF QQN=1 THEN QQN=QQN+1:GOTO 1720
1570 '
1580 '** MAIN LOOTINE **
1590 CY=0:CN=0:CCN=0:QQN=0:DIM NF(45):DIM KIRR(40):KIRN=0
1600 '
1610 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1:MOUSE 4,25,36,382,412
1620 '
1630 RANDOMIZE TIME
1640 NF(0)=INT(RND*50)
1650 T=1
1660 IF CCN=PNO THEN GOTO 3800
1670 N=INT(RND*50)+1
1680 FOR J=0 TO T-1
1690 IF NF(J)=N THEN GOTO 1670
1700 NEXT J
1710 NF(T)=N:QQ=N
1720 MOUSE 5:MOUSE 0:MOUSE 1,382,412,1:MOUSE 4,25,36,382,421
1730 TTN=0:BN=0
1740 IF QQ=<10 THEN Q=QQ :GOTO *M0
1750 IF QQ>10 AND QQ=<20 THEN Q=QQ-10:GOTO *M1
1760 IF QQ>20 AND QQ=<30 THEN Q=QQ-20:GOTO *M2
1770 IF QQ>30 AND QQ=<40 THEN Q=QQ-30:GOTO *M3
1780 IF QQ>40 AND QQ<50 THEN Q=QQ-40:GOTO *M4
1790 CCN=CCN+1:T=T+1:GOTO 1660
1800 T=T+1:GOTO 1660
1810 '
1820 IF KIRN=4380 THEN ELSE 4020
1830 '
1840 *M0:ON Q GOTO *A1, *A2, *A3, *A4, *A5, *A6, *A7, *A8, *A9, *A10
1850 *M1:ON Q GOTO *A11,*A12,*A13,*A14,*A15,*A16,*A17,*A18,*A19,*A20
1860 *M2:ON Q GOTO *A21,*A22,*A23,*A24,*A25,*A26,*A27,*A28,*A29,*A30
1870 *M3:ON Q GOTO *A31,*A32,*A33,*A34,*A35,*A36,*A37,*A38,*A39,*A40
1880 *M4:ON Q GOTO *A41,*A42,*A43,*A44,*A45,*A46,*A47,*A48,*A49,*A50
1890 '
1900 *A1 :A$="エジプト" :XP=266:YP=89 :GOTO *SENTAKU
1910 *A2 :A$="リビア" :XP=186:YP=79 :GOTO *SENTAKU
1920 *A3 :A$="チュニジア" :XP=172:YP=59 :GOTO *SENTAKU
1930 *A4 :A$="モ-リシャス" :XP=386:YP=377 :GOTO *SENTAKU
1940 *A5 :A$="アルジェリア" :XP=139:YP=60 :GOTO *SENTAKU
1950 *A6 :A$="モロッコ" :XP=105:YP=66 :GOTO *SENTAKU
1960 *A7 :A$="モ-リタニア" :XP=48 :YP=141 :GOTO *SENTAKU
1970 *A8 :A$="セネガル" :XP=43 :YP=161 :GOTO *SENTAKU
1980 *A9 :A$="カンビア" :XP=42 :YP=172 :GOTO *SENTAKU
1990 *A10 :A$="ギニアビサオ" :XP=47 :YP=182 :GOTO *SENTAKU
2000 *A11 :A$="ギニア" :XP=51 :YP=189 :GOTO *SENTAKU
2010 *A12 :A$="シエラレオネ" :XP=58 :YP=200 :GOTO *SENTAKU
2020 *A13 :A$="リベリア" :XP=67 :YP=209 :GOTO *SENTAKU
2030 *A14 :A$="コ-トジボア-ル":XP=90 :YP=212 :GOTO *SENTAKU
2040 *A15 :A$="ガ-ナ" :XP=114:YP=217 :GOTO *SENTAKU
2050 *A16 :A$="ト-ゴ" :XP=123:YP=212 :GOTO *SENTAKU
2060 *A17 :A$="ベナン" :XP=128:YP=209 :GOTO *SENTAKU
2070 *A18 :A$="マリ" :XP=78 :YP=173 :GOTO *SENTAKU
2080 *A19 :A$="ブルキナファソ" :XP=105:YP=179 :GOTO *SENTAKU
2090 *A20 :A$="ニジェ-ル" :XP=130:YP=171 :GOTO *SENTAKU
2100 *A21 :A$="ナイジェリア" :XP=149:YP=194 :GOTO *SENTAKU
2110 *A22 :A$="カルメ-ン" :XP=174:YP=223 :GOTO *SENTAKU
2120 *A23 :A$="赤道ギニア" :XP=168:YP=238 :GOTO *SENTAKU
2130 *A24 :A$="ガボン" :XP=165:YP=246 :GOTO *SENTAKU
2140 *A25 :A$="コンゴ" :XP=193:YP=265 :GOTO *SENTAKU
2150 *A26 :A$="ザイ-ル" :XP=200:YP=266 :GOTO *SENTAKU
2160 *A27 :A$="アンゴラ" :XP=187:YP=291 :GOTO *SENTAKU
2170 *A28 :A$="ナミビア" :XP=203:YP=359 :GOTO *SENTAKU
2180 *A29 :A$="南アフリカ共和国":XP=255:YP=376 :GOTO *SENTAKU
2190 *A30 :A$="レソト" :XP=253:YP=400 :GOTO *SENTAKU
2200 *A31 :A$="スワジランド" :XP=310:YP=386 :GOTO *SENTAKU
2210 *A32 :A$="ボツワナ" :XP=248:YP=368 :GOTO *SENTAKU
2220 *A33 :A$="ジンバエブ" :XP=274:YP=341 :GOTO *SENTAKU
2230 *A34 :A$="ザンビア" :XP=262:YP=325 :GOTO *SENTAKU
2240 *A35 :A$="モザンビ-ク" :XP=277:YP=380 :GOTO *SENTAKU
2250 *A36 :A$="マラウイ" :XP=291:YP=320 :GOTO *SENTAKU
2260 *A37 :A$="タンザニア" :XP=314:YP=286 :GOTO *SENTAKU
2270 *A38 :A$="マダガスカル" :XP=349:YP=350 :GOTO *SENTAKU
2280 *A39 :A$="ケニア" :XP=305:YP=253 :GOTO *SENTAKU
2290 *A40 :A$="ウガンダ" :XP=278:YP=245 :GOTO *SENTAKU
2300 *A41 :A$="ルワンダ" :XP=268:YP=256 :GOTO *SENTAKU
2310 *A42 :A$="ブルンジ" :XP=270:YP=268 :GOTO *SENTAKU
2320 *A43 :A$="ソマリア" :XP=350:YP=227 :GOTO *SENTAKU
2330 *A44 :A$="エチオピア" :XP=314:YP=197 :GOTO *SENTAKU
2340 *A45 :A$="ス-ダン" :XP=279:YP=163 :GOTO *SENTAKU
2350 *A46 :A$="中央アフリカ" :XP=207:YP=220 :GOTO *SENTAKU
2360 *A47 :A$="チャド" :XP=194:YP=182 :GOTO *SENTAKU
2370 *A48 :A$="ジプチ" :XP=333:YP=186 :GOTO *SENTAKU
2380 *A49 :A$="コモロ" :XP=366:YP=299 :GOTO *SENTAKU
2390 *A50 :A$="モ-リシャス" :XP=386:YP=377 :GOTO *SENTAKU
2400 '
2410 *SENTAKU
2420 IF TTN=0 THEN GOTO *WRITE
2430 IF TTN=1 THEN GOTO *WRITE_NO
2440 IF TTN=2 THEN GOTO *SIRABE_WRITE
2450 '
2460 *WRITE
2470 LOCATE 56,6:COLOR 1:PRINT " "
2480 LOCATE 56,6:COLOR 1:PRINT A$
2490 GOTO 2530
2500 '
2510 *POINT
2520 MOUSE 5:MOUSE 0:MOUSE 1,X,Y,1: MOUSE 4,27,38,396,426:GOTO 2540
2530 MOUSE 5:MOUSE 0:MOUSE 1,337,364,1:MOUSE 4,27,3,396,426
2540 B=1
2550 X=MOUSE(4,0):Y=MOUSE(5,0)
2560 IF X>103 AND X<128 AND Y>415 AND Y<424 THEN GOTO *SIRABERU
2570 IF X>133 AND X<158 AND Y>415 AND Y<424 THEN BN=0 :GOTO *MODORU
2580 IF X>31 AND X<50 AND Y>404 AND Y<422 THEN GOTO *MENU_E
2590 IF X>64 AND X<84 AND Y>404 AND Y<422 THEN GOTO *OWARI_E
2600 IF X>264 AND X<269 AND Y>87 AND Y<92 THEN TT=1 :GOTO *BUNKI '
2610 IF X>184 AND X<189 AND Y>77 AND Y<82 THEN TT=2 :GOTO *BUNKI '
2620 IF X>170 AND X<175 AND Y>57 AND Y<62 THEN TT=3 :GOTO *BUNKI '
2630 IF X>384 AND X<389 AND Y>375 AND Y<380 THEN TT=4 :GOTO *BUNKI '
2640 IF X>137 AND X<142 AND Y>58 AND Y<63 THEN TT=5 :GOTO *BUNKI '
2650 IF X>103 AND X<108 AND Y>64 AND Y<69 THEN TT=6 :GOTO *BUNKI '
2660 IF X>46 AND X<51 AND Y>139 AND Y<144 THEN TT=7 :GOTO *BUNKI '
2670 IF X>41 AND X<46 AND Y>159 AND Y<164 THEN TT=8 :GOTO *BUNKI '
2680 IF X>40 AND X<45 AND Y>170 AND Y<175 THEN TT=9 :GOTO *BUNKI '
2690 IF X>45 AND X<50 AND Y>180 AND Y<185 THEN TT=10:GOTO *BUNKI '
2700 IF X>49 AND X<54 AND Y>187 AND Y<192 THEN TT=11:GOTO *BUNKI '
2710 IF X>56 AND X<61 AND Y>198 AND Y<203 THEN TT=12:GOTO *BUNKI '
2720 IF X>65 AND X<70 AND Y>207 AND Y<212 THEN TT=13:GOTO *BUNKI '
2730 IF X>88 AND X<93 AND Y>210 AND Y<215 THEN TT=14:GOTO *BUNKI '
2740 IF X>112 AND X<117 AND Y>215 AND Y<220 THEN TT=15:GOTO *BUNKI '
2750 IF X>121 AND X<126 AND Y>210 AND Y<215 THEN TT=16:GOTO *BUNKI '
2760 IF X>126 AND X<131 AND Y>207 AND Y<212 THEN TT=17:GOTO *BUNKI '
2770 IF X>75 AND X<80 AND Y>171 AND Y<176 THEN TT=18:GOTO *BUNKI '
2780 IF X>103 AND X<108 AND Y>177 AND Y<182 THEN TT=19:GOTO *BUNKI '
2790 IF X>128 AND X<133 AND Y>169 AND Y<174 THEN TT=20:GOTO *BUNKI '
2800 IF X>147 AND X<152 AND Y>192 AND Y<197 THEN TT=21:GOTO *BUNKI '
2810 IF X>172 AND X<177 AND Y>221 AND Y<226 THEN TT=22:GOTO *BUNKI '
2820 IF X>166 AND X<171 AND Y>236 AND Y<241 THEN TT=23:GOTO *BUNKI '
2830 IF X>163 AND X<168 AND Y>244 AND Y<249 THEN TT=24:GOTO *BUNKI '
2840 IF X>191 AND X<196 AND Y>263 AND Y<268 THEN TT=25:GOTO *BUNKI '
2850 IF X>198 AND X<203 AND Y>264 AND Y<269 THEN TT=26:GOTO *BUNKI '
2860 IF X>185 AND X<190 AND Y>289 AND Y<294 THEN TT=27:GOTO *BUNKI '
2870 IF X>201 AND X<206 AND Y>357 AND Y<362 THEN TT=28:GOTO *BUNKI '
2880 IF X>253 AND X<258 AND Y>374 AND Y<379 THEN TT=29:GOTO *BUNKI '
2890 IF X>251 AND X<256 AND Y>398 AND Y<403 THEN TT=30:GOTO *BUNKI '
2900 IF X>308 AND X<313 AND Y>384 AND Y<389 THEN TT=31:GOTO *BUNKI '
2910 IF X>246 AND X<251 AND Y>366 AND Y<371 THEN TT=32:GOTO *BUNKI '
2920 IF X>272 AND X<277 AND Y>339 AND Y<344 THEN TT=33:GOTO *BUNKI '
2930 IF X>260 AND X<265 AND Y>323 AND Y<328 THEN TT=34:GOTO *BUNKI '
2940 IF X>275 AND X<280 AND Y>378 AND Y<383 THEN TT=35:GOTO *BUNKI '
2950 IF X>289 AND X<294 AND Y>318 AND Y<323 THEN TT=36:GOTO *BUNKI '
2960 IF X>312 AND X<317 AND Y>284 AND Y<289 THEN TT=37:GOTO *BUNKI '
2970 IF X>347 AND X<352 AND Y>348 AND Y<353 THEN TT=38:GOTO *BUNKI '
2980 IF X>303 AND X<308 AND Y>251 AND Y<256 THEN TT=39:GOTO *BUNKI '
2990 IF X>276 AND X<281 AND Y>243 AND Y<248 THEN TT=40:GOTO *BUNKI '
3000 IF X>266 AND X<271 AND Y>254 AND Y<259 THEN TT=41:GOTO *BUNKI '
3010 IF X>268 AND X<273 AND Y>266 AND Y<251 THEN TT=42:GOTO *BUNKI '
3020 IF X>348 AND X<353 AND Y>225 AND Y<230 THEN TT=43:GOTO *BUNKI '
3030 IF X>312 AND X<317 AND Y>195 AND Y<200 THEN TT=44:GOTO *BUNKI '
3040 IF X>277 AND X<282 AND Y>161 AND Y<166 THEN TT=45:GOTO *BUNKI '
3050 IF X>205 AND X<210 AND Y>218 AND Y<223 THEN TT=46:GOTO *BUNKI '
3060 IF X>192 AND X<197 AND Y>180 AND Y<185 THEN TT=47:GOTO *BUNKI '
3070 IF X>331 AND X<336 AND Y>184 AND Y<189 THEN TT=48:GOTO *BUNKI '
3080 IF X>364 AND X<371 AND Y>297 AND Y<302 THEN TT=49:GOTO *BUNKI '
3090 IF X>384 AND X<389 AND Y>375 AND Y<380 THEN TT=50:GOTO *BUNKI '
3100 IF B=1 THEN 3110 ELSE 2550
3110 'MOUSE 5:MOUSE 0:MOUSE 1,382,412,1:MOUSE 4,25,36,382,412
3120 B=B+1
3130 GOTO 2550
3140 '
3150 *BUNKI
3160 IF BN=0 THEN *QUIZ ELSE *SIRABE
3170 *QUIZ
3180 IF QQ=TT THEN *YES ELSE *NO
3190 *SIRABE
3200 TTN=2:GOTO *CHECK
3210 '
3220 *YES
3230 CY=CY+1
3240 LOCATE 57,13:COLOR 1:PRINT"正解です。 "
3250 PCMPLAY YES_S%
3260 GOSUB *COUNT
3270 WAIT 100
3280 WAIT 100
3290 LOCATE 57,13:COLOR 1:PRINT" "
3300 IF QQN=2 THEN 3970
3310 GOTO 1790
3320 '
3330 *NO
3340 CN=CN+1:TTN=1
3350 ' LOCATE 57,13:COLOR 3:PRINT"残念でした。"
3360 PCMPLAY NO_S%
3370 XPP=XP:YPP=YP
3380 *CHECK
3390 IF TT=<10 THEN Q=TT :GOTO *M0
3400 IF TT>10 AND TT=<20 THEN Q=TT-10:GOTO *M1
3410 IF TT>20 AND TT=<30 THEN Q=TT-20:GOTO *M2
3420 IF TT>30 AND TT=<40 THEN Q=TT-30:GOTO *M3
3430 IF TT>40 AND TT=<50 THEN Q=TT-40:GOTO *M4
3440 IF TT=51 THEN A$="DUMY"
3450 *WRITE_NO
3460 AW=LEN(A$):BW=(22-AW)\2
3470 LOCATE 55,12:COLOR 1:PRINT"そこは"
3480 LOCATE 55,13:COLOR 2:PRINT SPACE$(BW)+A$
3490 LOCATE 55,14:COLOR 1:PRINT" です。 "
3500 GOSUB *COUNT
3510 IF QQN=0 THEN GOSUB *KIROKU2
3520 CIRCLE (XPP,YPP),6,4,,,,F,XOR
3530 WAIT 220
3540 CIRCLE (XPP,YPP),6,4,,,,F,XOR
3550 LOCATE 55,12:COLOR 1:PRINT SPACE$(20)
3560 LOCATE 55,13:COLOR T:PRINT SPACE$(20)
3570 LOCATE 55,14:COLOR 1:PRINT SPACE$(20)
3580 IF QQN=2 THEN 3970
3590 GOTO 1790
3600 '
3610 *COUNT
3620 CT=CY+CN
3630 CC=INT((CY/CT)*100)
3640 CG=INT(CC*1.5!):IF CG>148 THEN CG=148
3650 LOCATE 63,18:PRINT " "
3660 LOCATE 67,19:PRINT " "
3670 LOCATE 63,18:COLOR 1:PRINT "(";CY;"/";CT;") "
3680 LOCATE 67,19:COLOR 1:PRINT CC
3690 LINE (451, 381)-(599, 404),PSET,%8,B
3700 LINE (451, 381)-(451+CG,404),PSET,%8,BF,%11
3710 LINE (451+CG,381)-(599, 404),PSET,%8,BF,%13
3720 RETURN
3730 '
3740 *KIROKU2
3750 KIRR(KIRN)=QQ
3760 KIRN=KIRN+1
3770 RETURN
3780 '
3790 '** 確認 選択 **
3800 MOUSE 5:CLS 4
3810 LOCATE 55,6 :COLOR 2:PRINT"間違いを確認しますか?"
3820 LOCATE 57,8 :COLOR 1:PRINT" 確認します。"
3830 LOCATE 57,9 :COLOR 1:PRINT" 確認しません。"
3840 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
3850 X=MOUSE(4,0):Y=MOUSE(5,0)
3860 IF X>39 AND X<60 AND Y>50 AND Y<65 THEN GOTO *MENU_E
3870 IF X>73 AND X<93 AND Y>50 AND Y<69 THEN GOTO *OWARI_E
3880 IF X>505 AND X<582 AND Y>153 AND Y<167 THEN GOTO 3920
3890 IF X>510 AND X<608 AND Y>172 AND Y<180 THEN GOTO 4020
3900 GOTO 3850
3910 '
3920 '** 確認 ROOTINE **
3930 PNO=KIRN-1
3940 QQN=1:CY=0:CN=0
3950 FOR J=0 TO PNO
3960 QQ=KIRR(J):GOTO 1460
3970 NEXT J
3980 MOUSE 5:CLS 4
3990 LOCATE 55,6 :COLOR 2:PRINT"もう一度確認しますか?"
4000 GOTO 3820
4010 '
4020 '** END 選択 **
4030 LINE(464,107)-(586,145),PSET,%13,BF
4040 LINE(451,381)-(599,404),PSET,%8,BF,%13
4050 MOUSE 5:CLS 4
4060 LOCATE 56,6 :COLOR 2:PRINT"続けますか?"
4070 LOCATE 58,7 :COLOR 1:PRINT" 続けます。"
4080 LOCATE 58,8 :COLOR 1:PRINT" 終わります。"
4090 ERASE NF:ERASE KIRR
4100 MOUSE 0:MOUSE 1,596,353,1
4110 X=MOUSE(4,0):Y=MOUSE(5,0)
4120 IF X>39 AND X<60 AND Y>50 AND Y<65 THEN GOTO *MENU_E
4130 IF X>73 AND X<93 AND Y>50 AND Y<69 THEN GOTO *OWARI_E
4140 IF X>505 AND X<573 AND Y>135 AND Y<145 THEN GOTO 1150
4150 IF X>505 AND X<588 AND Y>153 AND Y<167 THEN GOTO 4180
4160 GOTO 4110
4170 '
4180 IF MENU=1 THEN 4230 ELSE 4420
4190 '
4200 '** END 選択 **
4210 LINE(464,107)-(586,145),PSET,%13,BF
4220 LINE(451,381)-(599,404),PSET,%8,BF,%13
4230 MOUSE 5:CLS 4
4240 LOCATE 55,6 :COLOR 2:PRINT"メニュ-に戻りますか?"
4250 LOCATE 55,7 :COLOR 1:PRINT" 戻ります。"
4260 LOCATE 55,8 :COLOR 1:PRINT" 戻らず終わります。"
4270 MOUSE 0:MOUSE 1,596,353,1
4280 X=MOUSE(4,0):Y=MOUSE(5,0)
4290 IF X>39 AND X<60 AND Y>50 AND Y<65 THEN GOTO *MENU_E
4300 IF X>73 AND X<93 AND Y>50 AND Y<69 THEN GOTO *OWARI_E
4310 IF Y>135 AND Y<145 THEN GOTO 4380
4320 IF Y>153 AND Y<167 THEN GOTO 4420
4330 GOTO 4280
4340 '
4350 *MENU_E
4360 ERASE NF:ERASE KIRR
4370 *MENU_1
4380 CHAIN "B_MENU2.BAS",,ALL
4390 RUN "B_MENU2.BAS"
4400 '
4410 *OWARI_E
4420 CHAIN "B_END.BAS",,ALL
4430 RUN "B_END.BAS"
4440 '
4450 *SIRABERU
4460 IF SIR=1 THEN CLS 4:GOTO 4530
4470 'LINE(441,101)-(601,146),PSET,%13,BF
4480 'CLS 4
4490 '
4500 LOCATE 55,8 :COLOR 2:PRINT" クイズ中断中 "
4510 LOCATE 57,9 :COLOR 1:PRINT" 調べモードです。":GOTO 4550
4520 '
4530 LOCATE 55,6 :COLOR 2:PRINT"クイズ中断中 "
4540 LOCATE 57,8 :COLOR 1:PRINT"調べモードです。"
4550 LOCATE 61,2 :COLOR 2:PRINT"国名クイズ"
4560 LOCATE 55,4 :COLOR 2:PRINT"確 認"
4570 LOCATE 55,11:COLOR 2:PRINT"国 名"
4580 BN=1:GOTO *POINT
4590 '
4600 *SIRABE_WRITE
4610 LOCATE 15,22:COLOR 3:PRINT SPACE$(50)
4620 LOCATE 55,12:COLOR 1:PRINT"そこは"
4630 LOCATE 55,14:COLOR 1:PRINT" です。 "
4640 LOCATE 57,13:PRINT SPACE$(20)
4650 AW=LEN(A$):BW=(22-AW)\2
4660 FOR T=5 TO 2 STEP -1
4670 LOCATE 55,13:COLOR T:PRINT SPACE$(BW)+A$
4680 WAIT 25
4690 NEXT
4700 WAIT 50:GOTO *POINT
4710 '
4720 *MODORU
4730 IF SIR=1 THEN GOTO *MENU_GAMEN'
4740 LOCATE 55,6 :COLOR 2:PRINT SPACE$(18)
4750 LOCATE 57,8 :COLOR 1:PRINT SPACE$(18)
4760 LOCATE 57,9 :COLOR 1:PRINT SPACE$(18)
4770 LOCATE 55,11:COLOR 2:PRINT SPACE$(18)
4780 LOCATE 55,13:COLOR T:PRINT SPACE$(22)
4790 LOCATE 55,12:COLOR 1:PRINT SPACE$(18)
4800 LOCATE 55,14:COLOR 1:PRINT SPACE$(18)
4810 LOCATE 61,2 :COLOR 2:PRINT"国名クイズ"
4820 LOCATE 55,4 :COLOR 2:PRINT"問 題"
4830 LOCATE 61,8 :COLOR 2:PRINT"左クリックして"
4840 LOCATE 61,9 :COLOR 2:PRINT"下さい。"
4850 LOCATE 55,11:COLOR 2:PRINT"答 え"
4860 GOTO 1800
4870 '
4880 *MOUS
4890 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
4900 X=MOUSE(4,0):Y=MOUSE(5,0)
4910 LOCATE 10,19:PRINT X;Y
4920 GOTO 4900